﻿Public Class FormFlbInfoUpdate
    Dim objFlbInfo As New clsFLBinfo
    Dim s_id As String
    Dim dlno As String
    Private Sub FormFlbInfoUpdate_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        txt_dl_no.Focus()
    End Sub

    Private Sub txt_dl_no_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txt_dl_no.KeyPress
        If String.IsNullOrEmpty(txt_dl_no.Text.Trim) = False Then
            If e.KeyChar = vbCr Then
                Dim flb_info As DataTable = objFlbInfo.getFlbInfoByDlNo(txt_dl_no.Text.Trim)
                With flb_info
                    If .Rows.Count > 0 Then
                        s_id = .Rows(0)("sys_id")
                        dlno = .Rows(0)("dl_no")
                        If .Rows(0)("which_side") = "0" Then
                            rdoZM.Checked = True
                        Else
                            rdoFM.Checked = True
                        End If
                        txt_flb_type.Text = .Rows(0)("flb_type")
                        txt_flb_type.Tag = .Rows(0)("flb_material_code")
                        txt_flb_count_into.Text = CInt(.Rows(0)("piece_num"))
                        txt_flb_count_out.Text = CInt(.Rows(0)("used_piece_num"))
                    Else
                        MsgBox("未检索到法兰板吊篮号")
                    End If
                End With
            End If
        End If
    End Sub

    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
        MsgBox("功能暂未实现")
    End Sub
End Class